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VAX=11 CONVERT 18-Sep-19 4 $33 2] AX=-11 Bliss-32 V4.0-742 Page 


14-Sep-1984 12:14:0 CONV. she RCJEO NUTR -832;1 
ZTITLE ‘VAX=11_ CONVERT’ 
MODULE CONVSFSTRC ( 1D ent ="Vv04-000' 
A this LEVEL=3 
= 


BEGIN 


SRR RAAARAAEAAEEEAEAE REAR EARR ERA REREE EERE EAAEAAAAAAAEREAAAAEEAAAERAAEREEE 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


® 

* 

® 

® 

4 *® 
it THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i ONLY IN| ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
it INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER = 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY © 
i OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 

i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOU , 
i AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL E * 
is CORPORATION. ° 
® 

® 

® 

® 

® 
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'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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v04 yaaeertSRe FS FEib9 «Fea Bt les 32 We 08 rs2 (25 


| 

2 Be lie 
; 5 9 : Facility: VAX=11 CONVERT | | 
; 5 5 ¢ : Abstract: CONVERT index record processing routines 

; ? 6 i orarapiese CHECK_S_DuP 

; 39 0038 | i CHE CK-NOLL 

: 40 0 1! SPLIT_DATA | 
3; «661 040 1! IN_ SEGMENT 
; 6 04) 1} COMPRESS_KEY 

3; 66 ek 2.3 COMPRESS _ INDEX 

; 4G 045 1! MAKE_ INDEX 

;. 0044 1! WRITE _VBN 

; 46 0045 1! COPY _REY 

> 47 0046 1 CREATE_HIGH_KEY | 
; 68 984 1! 
; «649 048 1 ! Environment: 
; “9 0049 1 , 

33 onet : VAX/VMS Operating System | 
fa 0083 1 i Auth Keith B Th Creation d A 1980 | 
13 ! or: t te: - 
fs ge ger} | u e ompson reation date ugust | 
; 0055 1! 

ee 0036 1 ! Modified by: 

= a 0057 1! 

; FF 0058 1! v03-011 JwWwT0144 Jim Teague 17-Nov-1983 

: o0 sb ' Fix compare-packed for null keys. 

; 62 0061 1! v03-010 KBT0553 Keith B. Thompson 25-Aug-1983 

: o7 S94 ; Packed decimal high key fix 

: 65 0064 1 | V03-009 KBT0480 Keith 8. Thompson 31-Jan-1983 

; 68 sie : Change rec_buf_ptr to rfa_buffer 

: 68 0067 1: 03-008 KBT0440 Keith B. Thompson 16-Dec-1982 

: +4 Bp08 ' Add quadword key support 

; 0070 1! VO3-007 KBT0403 Keith B. Thompson 19-Nov-1982 | 
. |. 2 0071 1! Fix one byte bug in compress_key, change make_index and 
: 6 it ! } check_s_dup 

Bene 074 1} v03-006 KBT0383 Keith B. Thompson 26-0c t-1982 

: v6 Bo72 ! Add support for prologue 3 sidrs 

; «78 $079 & v03-005 KBT0378 Keith B. Thompson | 20-Oct-1982 

; He a078 ' Check for keys out of order in split_daéa 

; «81 0080 1% v03-004 KBT0351 Keith B, Thompson 4-0c t-1982 

: : at ' Use new Linkage definitions 

; «86 008 1! v03-003 KBT10038 Keith Thompson 3-Apr-1982 

: 32 bas ! Correct the vbn_size correction 

im, 0088 1! v03-002 KBT0023 Keith Thompson 24-Mar-1982 
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14.23 $ep-1984 23:52:1 AX-11 Bliss-32 V4 
\a-Sep-1984 f2:tes01 — ECONVESREICONUF SYR 
Correct calculation of vbn_size in write _vbn 


v03-001 pyres? Keith Thompson 16-Mar-1982 
ix the call to compress_data 
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CONVSF STRC VAX=-11 CONVERT 18-52 =1984 23:52:10 AX-11 Bliss-32 V4.0-742 Page 
you~000 1228 08=198e 93:72) CONV. SRCICONVFSTRC.832;1 . 
; 494 9 1 
; 95 1 PSECT 
; 4] 094 1 OWN = _CONVSFAST_D (PIC), 
9 095 1 GLOBAL = _CONVSFAST_D (PIC) 
; 98 09% 1 PLIT = <CONVSPLIT”  (SHARE,PIC), 
5 106 94 : CODE = -CONVSFAST_S (SHARE,PIC); 
; 101 $38 1 LIBRARY * SYSSLIBRARY :L1B.L32°; 
H 196 130 : LIBRARY ‘SRC$:CONVERT'; 
: 104 196 1 DEF INE_ERROR_CODES; 
; 105 103 1 
; 106 104 1 LINKAGE 
3; 107 105 1 
: 108 0106 1 CLSCOMPARE_KEYS = JSB : GLOBAL( CTX = 10, 
; 109 0107 1 KEY_DESC = 11 ), 
; 110 0108 1 
s 111 0109 1 CLSIN_SEGMENT = JSB : GLOBAL( BYTE_OFS = 6, 
; ie 0110 1 NEXT_SEG = 7, 
39 0111 1 NEXT LEN = 8 
: 114 O12 1 KEY BESc = 11 ) 
s 355 011 1 NOTOSED( 3 ); 
; 116 0114 1 
ae 0115 1 EXTERNAL ROUTINE 
; 118 0116 1 ONVS$SSCVT_TO_ASC : CLSCVT_TO_ASC, 
° 13 SBE : CONVSSCOMPRESS_DATA 3 CL$USB_LINK; 
: 121 0119 1 FORWARD ROUTINE 
e See 0120 1 COMPARE_KEYS : CLSCOMPARE_KEYS, 
3 (123 0121 1 IN_SEGMENT : CLSIN_SEGMENT; 
; 126 oiS¢ 1 
>; 125 0123 1 EXTERNAL 
; \¢6 Bis } CONV$GW_OUT_REC_S1Z : SIGNED WORD, ' Output Rec. Size 
; 128 0126 1 CONVSGL_RFA_BUFFER, 
; 129 0127 1 
: 130 0128 1 CONVS$AB_OUT_F AB : SFAB_DECL, 
3 «6131 Oi¢2 1 
s 132 0130 1 CONVS$GB_PROL_V3 : BYTE, 
, 335 0131 1 
: «134 8136 1! Data Decl. for Fast Load routines 
3 155 01353 1! 
s 136 0134 1 CONVSGL_RECORD_PTR, 
. oa7 bi 32 1 CONVSGL_DUP_BUF ; 
; 138 138 1 
; 139 0137 1 MACRO 
s re bse : : Some needed macros to define the data record for a bucket 
; \*¢ 0140 1 IRCSL_RRV_VBN_ = 3-0-3 O02, ! RRV VBN Pointer 
: 14 0141 1 IRCSL_RRV_VBN3S = 5,0,32,0%, ' RRV VBN Pointer (Prologue 3) 
3; 144 O146 1 IRC$W_VAR-SIZ_ = 5-0. 18-0R. ' Var. Rec. Format Size field 
: 145 0143 1 IRCSL-DUPTOUNT = 2,0,32,0%, ' Duplicate count fiel 
3; 146 0144 1 IRC$W_DUPS2 = 8-8. 18+ Oee ' Size field when dup. are allowed 
3: «147 0145 1 IRC$W_NODUPSZ = 2,0,16,0%; ! Size field when dup. are not allowed 


z 
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CHECK_S_DuUP 14 30-1984 $3:32:03 CONV. SRCICONVESTRE.B325 1 . a es 


35 


000 
49 14 ZSBTTL ‘CHECK_S_ DUP’ 
29 GLOBAL ROUTINE” CONVSSCHECK_S_DUP : CLSJSB_REG_9 = 
7 i 
55 Functional Description: 
2? Checks if the current secondary key is a duplicate of the last key 
ef Calling Sequence: 
23 CONVSSCHECK_S_DUP() 
61 Input Parameters: 
o¢ none 
6 
Implicit Inputs: 
none 
Output Parameters: 
none 
Implicit Outputs: 
none 


Routine Value: 


1 = Key was a duplicate 
0 - Key was NOT a dupli 


Routines Called: 
CONVSSCVT_TO_ASC 


Side Effects: 
none 
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BEGIN 


DEF INE_CTX; 
DEF INE_KEY_DESC; 


! If this is the very first record then just return 0 
else compaire the record with the Last one 


IF .CTX C CTXSV_FST J 
RETURN 0 
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1 RETURN CHSEQL ( .KEY DESC C KEYSB_KEYSZ J, ' Key size 
1 > CONDSGL DUP BUF i Old key 
1 "KEY DESC C REYS$B_KEYSZ J, 

: -CONVSGL_RFA_BUFFER + 6 ) ! New key 


END; 
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CONV. SRC RCE 


TLE CONVSFSTRC VAX-11 CONVERT 
ENT \v04-000\ 
TRN 
T 


T 
I 

E CONVERTS_FACILITY 
EXTRN CONV$_FAO_MAX, CONVS gehd Suk 
EXTRN CON v3 $“BADLOG! €, CONVS$_BADSOR 

EXTRN CONV$_CONFQU UAL, CONVS— CREATEDSTR 
EXTRN CON vs. CREA_ERR, CON NVS “DELP 

EXTRN CONVS$_DUP, CONV$_EXTN-ER aR 

EXTRN CONVS" =FATALEXC, “CONS FILLIM 
EXTRN CONVS_IDX_LIM, CONVS$_TLL_KEY 

: VALUE 


CONVS ORDER, CONVS$_OPENEXC 
CONVS OPENIN CONVS OPENOUT 


EQ 
F_BKS, cOnvs UDF _BLK 
-EXTRN CONVS— vres CONVS_ RITEERR 
T TO ASC” 


-EXTRN CONVS$GW_OUT_REC_SIZ 

~EXTRN CON VSGL “RFA “BUFFER 

~EXTRN CONV TF 

EX CONV$GB_PROC_V 

-EXTRN CONVSGL “RECORD PTR 

-EXTRN CONVSGL-DUP_BUF 

-PSECT _CONVSFAST_S,NOWRT, SHR, PIC,2 


BB 00000 CONVSSCHECK S_DUP: 
USAR™ #NCR2, Re. R4> 


E9 0000 BLaC (CTX), 1 
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_DUP_BUF, #0, R1, 6(RO) 


R 
R 
F 


51 00 0000G ODF 06 
BNEQ 2$ 
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23:52: yA 

CHECK _NULL 14-Sep-1984 12:14:0 CONV. SRCJCONVFSTRC.B32;1 
Check the record one segment at a time 

incr 1 FROM 0 TO ( .KEY_DESC C KEYSB_SEGMENTS J] - 1) BY 1 


16 
8 Nee: VAX=11 CONVERT 18-36-19 4 1 X-11 Blissa52 V4.0=742 
63 


v0 


} If we dont have a null then dont bother looking any further 
if ( NUL = ( CASE .KEY_DESC C KEYSB_DATATYPE ] FROM KEYSC_STRING TO KEYSC_MAX_DATA OF 
KEYSC_STRING ] : CHSEQL( 1,KEY_DESC C KEYSB_NULLCHAR J, 
.SEG_SIZE C .1 J, 
-KEYPTR 
“KEY_DESC C KEYSB_NULLCHAR J ); 
C KEYSC_SGNWORD,KEYSC_UNSGNWORD J] : .KEYPTR C 0,WORD_U J] EQLU 0; 
C KEYSC_SGNLONG,KEYSC_UNSGNLONG J] : .KEYPTR C 0,LONG_U J EQLU 0; 
C KEYSC_PACKED ] : 
BEGIN 
STACKLOCAL NULL; 
NULL = 12; 
The value returned by CMPP is backwards 
if CMPP( %REF(O), NULL, 
ZREF (( .SEG Ize C.I]*2)-1), 
.KEYPTR ) EQCU 
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Sess 
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2 THEN 

2 _SET 
296 ELSE 

297 _CLEAR 
98 

299 END; 

00 


WAAR PONIPIPIPIPNIPINININININININPYPYPOPPoNnofnony 


Be Se Be Se Se Ge Be Se Be Se Se Ge Se Se Se Se Ge Ge Be Se Ge Ge Se Fe Se BH Se Se Se Se Se Fe Se Se Se FH Ss SH Se Se Se Se SH Se FH Se SH SH Ge SH Gee 


=S>PIPININIMINININDGES BS BB DPT BB BPP PPE EE Error nyry 


SGOCOOSOCOSOSGOOCOSSOSOOOSSCOOSOOOOOOOOOCOOOOOOOOCOOCOoOO Oo: 


301 97 C KEYSC_SGNQUAD,KEYSC_UNSGNQUAD J : 
a8 98 ( .KEYPTR ‘ 0,LONG_U EQLU 0 ) AND 
30 99 ( .KEYPTR C 4,LONG_U J EQLU 0 ); 
04 00 

05 01 —e TES ) ) 

8$ 38 KEYPTR = .KEYPTR + .SEG_SIZE C .I J 

08 304 

09 305 EXITLOOP; 

10 306 

11 4 RETURN .NUL 

\¢ 08 

1 309 

14 310 END; 
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C FSTRC VAK=11 CONVERT 1.28 -1984 23:52:1 AX-11 Bliss-32 V4.0-742 Page 10 
oboe CHECK _NULL 12-8 08-19e 43:72:40 CONV. SRCJCONVFSTRC.832;1 9 5) 
O1FC 8F 6B 00090 CONVSSCHECK_NULL:: 
PUSAR  #*M<R2,R3,R4,R5,R6,R7,RB> : 0203 
SE 4 c2 0004 SUBL2 #4, SP : 
56 00006 CF 6 § 9007 ADDL3 #6, CONVSGL_RFA_BUFFER, KEYPTR : 0257 
a 12 AB OA 99 D MOVZBL 18(KEY_DESCY, RB : 0261 
4 oi ‘ 11 MNEGL #1, I + 0266 
0088 014 BRW 15$ ; 
07 0 1 AB F 00017 1$: CASEB 17 (KEY_DESC), #0, #7 : 
0039 0028 99 901 O1C 2$: .WORD  3$-2$,> ; 
006 006 03D 030 0024 38- $.- ; 
6$-2$,- : 
6$-2$,- 3 
9$-2$,- : 
11$-38.- : 
50 2C ABS 9A o002¢ 3$: MOVZBL 44(KEY_DESC)CIJ, RO : 0269 
55 04 00031 LRL.—s RS : 0271 
50 13, AB 13. AB 01 2D 00033 CMPCS #1, 19(KEY_DESC), 19(KEY_DESC), RO, - : 
66 0003A (KEYPTR) : 
0¢ 12 00038 BNEQ 4$ : 
55 D6 0003D INCL = R : 
57 55 DO 0003F 48: MOVL 5, NUL : 0268 
53 11 (00042 BRB 14$ : 
50 D4 00044 5$: CLRL ~— RO : 0273 
66 BS 00046 TSTW (KEYPTR) : 
08 13 00048 BEQL «6s 7$ ; 
08 11 0004A BRB 8$ : 
50 D4 0004C 6$: CLRL = RO : 0275 
66 05 0004E TSTL (KEYPTR) : 
02 12 00050 BNEQ &8$ F 
50 06 00052 7$: INCL RO ; 
57 50 DO 00054 8$: MOVL RO, NUL : 
3E 11 00057 BRB 14$ ; 
6E 0€ 00 00059 9$: MOVL #12, NULL : 0283 
50 2C AB44 9A 0005C MOVZBL 44(KEY_DESC)CIJ, RO : 0288 
50 98 C4 00061 MULL2 #2, RO ; 
5 b7 00064 DECL 0 ; 
bh 50 6E 09 7 00066 CMPP4 #0, NULL, RO, (KEYPTR) > 0289 
55 DC 00068 MOVPSL RS ; 
55 55 02 02 EF 0006D EXTZV #2. #2, RS, R5 : 
55 D7 00072 DECL R : 0287 
05 12 00074 BNEQ 108 : 0289 
57 01 00 90076 MOVL #1, NUL : 0287 
1c (11 79 BRB 14§ F 
57 D4 0007B 108 CLRL  ——-NUL F 
18 11 0007D BRB 14$ ; 
51 D4 OOO7F 118 CLRL— R11 : 0298 
66 05 60081 TSTL (KEYPTR) ; 
02 12 0085 BNEQ 12$ ; 
51 06 000 INCL =e R81 ; 
50 D4 0087 12$: CLRL ~— RO > 0299 
04 Ad D5 00089 TSTL 4(KEYPTR) ; 
08 12 0008C BNEQ 138 ; 
D6 0008 INCL RO ; 
57 51 D2 00090 138: MCOM, R1, NUL : 
57 50 57 CB 0009 BICL3 NUL, RO, NUL ; 
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CONVSFSTRC VAX=11 CONVERT bese =1984 23:52:10 AX-11 Bliss-32 V4.0-742 Page 11 
v04-000 CHECK _NULL 14-Sep-1984 $3:72:48 CONV. SRCJCONVFSTRC.B32;1 9 65) 
11 57 €9 97 14$: LBC NUL, , : 
0 2C AB44 iH p 9A MOVZBL 44(K key iggom- RO : $388 
6 C OF ADDL2 RO, KEY : 
02 4 F Ae 15$:  AOBLSS R { I, ; 0266 
FFGC }} 8 168: BRW 1$ ; 
50 00 AB 17$:  MOVL NUL, RO + 0307 
E 04 C AE ADDL2 #4, > 0310 
OiFC  8F BA S0Bt OPR a hcke, R3,R4,R5,R6,R7,RB> : 
5 00085 B : 


; Routine Size: 182 bytes, Routine Base: _CONVSFAST_S + 002B 
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C FSTRC VAX=11_ CONVERT 1S-Se “1984 23:52:10 AX-11 Bliss-32 V4.0-742 
| iouv008 SPLIT DATA 12-866-1984 13:74:01 CONV. SRCIJCONVFSTRC.B32;1 


L 
; 16 11. 1 XSBTTL  ‘SPLIT_DATA' 
3 if \§ ! GLOBAL ROUTINE” CONVSSSPLIT_DATA : CLSJSB_REG_9 = 
; 319 141! 
3 $9 12 : } Functional Description: 
5 § 13 1! Copies the data record returne by GET_RECORD into the primary 
: 18 1! key data buffer, for prologue 3 files 7t also extracts the key 
: 4 1 1! from the data and places it into the record control buffer 
3 5 ma Also checks to see if the present record is a duplicate of the 
: $ 0 1 : H last record 
3 8 g 1 ! Calling Sequence: 
3 +] 03246 1! 
; 9 5 CONVSSSPLIT_DATA() 
3 32 3 5 1 ! Input Parameters: 
3 0328 1! none 
; 334 0329 1! 
3 22 0330 1 ! Implicit Inputs: 
; 6 0331 1! none 
3 357 03 ; 1! 
; 338 0335 1 ! Output Parameters: 
s 339 0334 1! none 
: 340 0335 1! 3 
3; 341 0336 1°! Implicit Outputs: 
: $06 base 1! none 
3 346 0338 1! 2 
: 344 0339 1 ! Routine Value: 
3; 345 0340 1! 
; 346 0341 1! 1 = Key was a duplicate 
; «347 tak: 1! 0 - Key was NOT a duplicate 
; 348 0343 1! -1 - Key was out of order 
3 $08 0344 1! 
3 50 0345 1 ! Routines Called: 
3 (33) 0346 1! 
: $26 0347 1! CONVSSCVT_TO_ASC 
s 53> 0348 1! IN nT 
: 356 0349 1! CORVSSCOMPRESS_DATA 
3 3555 0350 1! 
; 326 0351 1 ! Side Effects: 
g 7 0326 1! none 
; 358 03535 1! 
; 359 B3e¢ 1 !-- 
: 360 355 1 
3; 361 9328 BEGIN 
3 66 035 
; 36 0358 DEF INE_CTX; 
; 364 0359 DEF INE BUCKET; 
; 365 0360 DEF INE-KEY_DESC; 
; 366 361 
3; 367 8366 BIND 
; 368 036 SEG_SIZE = .KEY_DESC + 44 : VECTOR f BYTE J, 
3; 369 0364 SEG_POSI = .KEYIDESC + 28 : VECTOR C ,WORD J; 
; 370 Bee2 
$ 71 $6 LOCAL 
s 572 036 DuP : SIGNED; 
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15-Sep-1984 52:10 AX-11 Bliss-32 V¥4.0-742 
22 ge 71882 F3:4e304 ONVE 


is 
CONV. SRCICONVFSTRC.B32;1 


! For prologue 3 files we must extract the key and 
! data from the input record 


' 
if 
THE 


g,CONVSGB_PROL_v3 
BEGIN ! Prologue 3 processing 
BEGIN ! Extract the key 
OCAL 
OFFSET 
REC_PTR; ! Pointer TO the data buffer 


Find out where the extracted key will go... 
If we are doing key compression the start the control buffer + 13 
else it's only 11 
: gKEv DESC C KEYSV_KEY_COMPR J 
OFFSET = 13 
SE 
! If there is no record compression and the file is fixed then 
there is no size fieid 


IF .KEY_DESC C KEYSV_REC_COMPR J] OR 
_ ( ,CONVS$AB_OUT_FAB C”FABSB_RFM J EQL FABSC_VAR ) 


N ‘ 
OFFSET = 11 
OFFSET = 9; 
Key goes here 
REC_PTR = .CTX C CTXSL_RCP J + OFFSET; 
} Move the key to the record buffer where it is suppose to be 
a I FROM 0 TO ( .KEY_DESC £ KEYSB_SEGMENTS J] - 1 ) BY 1 
BEGIN 
Move it 


CHSMOVE( .SEG_SIZE C .1], 
-CONDSGL _RECORD_PTR + .SEG_POSI C .1 ], 


' Segment size 
' Source | 
' Destination 


Increment destination 
REC_PTR = .REC_PTR + .SEG_SIZE C .1 J 
END; 


} The size of the control record is the key size plus the overhead 


CONVSFSTRC VAX=11_ CONVERT 18.36 $ep-1984 23:52:10 AX-11 Bliss-32 V4.0=-742 
vou" SPLIT DATA 14- 30p-1$8e 13:44:01 CONV. SRC atc ONVF STRC.832;1 


H 4 : 5 : CTX C CTXSW_RCS J] = .KEY_DESC C KEYSB_KEYSZ 3 + .OFFSET; 

; : ¢ ri ; 2 Check for a duplicate with the Last key 

> 434 Be 5 4 DUP = COMPARE_KEYS( “eer. ese KEYSB KEYS? J ! Key size 
: 435 430 4 ~CTX"C CTXSL_RCP OFFSET, i New key 
3 ? $ Be 1 ? .CTX CTXSLD _LKP } i Last key 
; 438 04 j ; END; ! Extract the key 

>; 439 0434 

; 440 0435 4 BEGIN ! Process the data 

3 441 3 6 4 

; 44 437 4 LOCAL 

3: 446 et: 4 BUFFER_PTR; 

3; 444 0439 4 

; 445 0440 5 BEGIN ! Extract the data record 

> 446 0441 5 

> 447 0442 5 GLOBAL BES ISTER 

; 448 0443 5 BYTE_OFS = 6, ! Offset into the data record 

3 449 0444 5 NEXT_SEG = 7, i No. of char. to the next segment 

: 450 0445 5 NEXT_LEN = 8; ! Length of next segment 

3; 451 0446 5 

; $26 0447 5 ! Extract the data record 

> 45 0448 5 : 

3; 454 0449 5 BYTE_OFS = 0; 

; 455 0450 5 

: 456 0451 5 ! Find out where to put the data record 

3: 457 0452 5 : 

; 458 0453 5 IF .KEY_DESC C KEYSV_REC_COMPR J 

; 459 0454 5 T 

; 460 0455 5 BUFFER_PTR = .CTX C CTX$L_RDP J] + 2 

3; 461 0456 5 ELSE 

: 46 0457 5 BUFFER_PTR = .CTX C CTXSL_RDP J; 

; 46 0458 5 

: 464 0459 5 ! Loop for the entire length of the record 

; 465 0460 5 : 

; 466 0461 5 WHILE .BYTE_OFS LSS .CONVS$GW_OUT_REC_SIZ 

: 467 0462 5 dO 

; 468 04635 5 

; 469 0464 5 ! If the this byte is in a key segment then ignore it and move 
; 470 0465 5 i past this segment 

3; 471 0466 5 i 

3; 472 467 5 if IN_SEGMENT() 

3; 473 46 2 N 

> 474 46 BYTE_OFS = .NEXT_SEG + .NEXT_LEN 

3; 475 0470 5 LSE 

3; 476 0471 5 

3 $77 oh 6 BEGIN 

; 478 0473 6 g ‘ eae 

3; 479 0474 6 ! If the byte is not ina — then move it into the buffer 
: 480 0475 6 : 

3: 481 bere 6 CHSMOVE( .NEXT_SEG - .BYTE_O 

; 48 477 6 - CONVEGL RECORD_ PTR’ : " BYTE_OfS, 

: 48 478 6 R_PTR ); 

3; 484 0479 6 

3; «6485 0480 6 puree ye sv FFER_PTR + ( .NEXT_SEG - .BYTE_OFS ); 
3 0481 6 BYTE_OFS = .NEXT_SEG™+ .NEXT_LEN 


For non prologue 3 files the size is simply what was returned by GET_RECORD 
CTX C CTX$SW_RDS J] = .CONVSGW_OUT_REC_SIZ; 
The control is a bit more complicated... 
Other files depend on var or fixed format 
IF .CONVSAB_OUT_FAB C FABSB_RFM J EQL FABSC_FIX 
or C CTX$SW_RCS J = IRCSC_FIXOVHDSZ 
CTX C CTX$W_RCS J] = IRCS$C_VAROVHDSZ; 


Check for duplicate key 


6 
CONVSF STRC VAX=11 CONVERT 15-Sep-1984 2:52:10 AX-11 Bliss-32 V4.0-742 
v04- SPLIT_DATA 12-8 08- 138 93:32) CONV. SRCICONVF STRC.832;1 
; 487 4 6 
; 488 04 { 6 END 
; 489 484 6 
: res Be 5 ? END; ! Extract the data record 
; re be ? : If there is record compression then do ** 
: 494 0489 4 if .KEY_DESC C KEYSV_REC_COMPR J 
; 495 0490 4 THEN 
>; 496 0491 2 BEGIN 
; 497 049 
; 4698 49 2 REGISTER 
: 499 49% NXT_FIELD_PTR = 6, 
; 500 0495 3 CNT“FIELD“PTR = 7, 
; 20) eh TRU_FIELD_PTR = 3; 
; 208 98 2 NXT_FIELD_PTR = .CTX C CTXSL_ROP J; 
; 206 99 3 CNT“FIELD-PTR = .BUFFER_PTR; 
: 206 1 2 CONVSSCOMPRESS_DATA(); 
3 308 08 : We can now say what the data size might be 
; 310 05 3 CTX C CTX$W_RDS J = .TRU_FIELD_PTR - .CTX C CTXSL_RDP 
; 212 07 5 END 
5 6ST 08 4 ELSE 
3; 514 09 4 
3 312 19 : If there is no compression then the data size is simular to above 
: 317 12 4 CTX C CTX$W_RDS ] = .BUFFER_PTR - .CTX C CTXSL_RDP J 
: 519 14 4 END ! Process the data 
; $20 15 4 
s Ser 16 3 END ' Prologue 3 processing 
3s Dee 17 ELSE } 
3 3s7 18 BEGIN ! Prologue 2 processing 
: 525 0 LOCAL LKP_PTR; 
3 te 1 
3 «Ser $ 
s 256 
: 9 4 
: 3 
; 238 
; $3 
: 534 2 
s 335 
s 336 ; 
3 337 
; 3 
; 539 
; 540 
32) 
: 30 


SOOCOCOCOCOCoOOOooQooQooQCooooooQooooooooooooooooo 
Se eee reese al sh sh Ab Ab Ab Ab Ab Ah Ab Ab Ah ah ah ah ah ah ah ah ah ah al Ae te et od 


Sek et ek eh ab a heed 


i Compaire the index part of the record into the buffer segment by 


RETURN .DUP 


aA NINN NINO OO 


250 L1:0505 
renced REGISTER symbol TRU_FIELD_PTR is probably not initialized 


> or) 


O1FC 8F BB 00000 CONVSSSPLIT_DATA:: 
PUSAR #*°M<R2,R3,R4,R5,R6,R7,R8> 
SE 10 C2 00004 SUBL2 #16, 
56 AB 9E 00007 MOVAB 44(KEY_DESC)., R6 
03 00006 CF &8 00008 BLBS § CONV$GB_PROL‘V3, 1$ 
OOCE 31 90019 BRW 
05 10 AB 06 &1 00013 18 BBC #6, 16(KEY_DESC), 2% 
5 OD 00 00018 MOVL #15, OFFSET 
14 11 00018 BRB $ 
10 AB 95 9001p 28 TSTB «16 (KEY_DESC) 
07 19 90 0 BLSS 
02 00006 CF 91 00022 CMPB © CONVSAB_OUT_FAB+31, #2 
05 if 00 BNEQ = 4 
58 08 00 00029 38: MOVL #11, OFFSET 
03 11 000eC BRB 5$ 
58 09 90 OO2E 4$: MOVL #9 OFFSET 
08 AE 30 BAGB 9E 00031 5$: OVAB a48(CTX) OFFSET] REC_PTR 
Oc A 12 AB 9A 00037 MOVZBL 18(KEY_DESC), 12(SP) 
5 01 CE 0003¢ NEGL #1, I 


16 
CONVSF STRC VAX=-11 CONVERT 4.38 $1984 23:52:10 AX-11 Bliss-32 V4.0-742 
v04- SPLIT_DATA 12-80-1384 $3: 72: hf CONV. SRCICONVFSTRC.832;1 
: 5446 539 ' segment. Since the Last key value is in last key pointer 
: 545 0846 : can use it to compaire vith RECORD_PTR (the current 
3 re 0541 ' record). 
5 3% p208 ! 
; 248 8267 LKP_PTR = .CTX C CTXSL_LKP J; 
$ 229 0345 } Compaire each segment until a key-out-of-order is found 
; $39 0347 INCR I FROM O TO ( .KEY_DESC C KEYSB_SEGMENTS J] - 1 ) BY 1 
.* 2 548 dO 
3 a2e 0549 4 BEGIN 
$ 22 B220 4 
; 556 0551 4 DUP = COMPARE_KEYS( .SEG_ SIZE C .1 J, 
; 557 093¢ 4 .CONUSGL_RECORD_PTR + .SEG_POSI C .1 J, 
; 558 0553 4 -LKP_PTR ); 
3 3oP 0554 4 
3 360 0555 4 ! If key is out of order check no more 
s 561 0556 4 ! 
; 206 0557 4 IF .DUP LSS 0 
; 3 0558 4 
3; 0559 4 EXITLOOP 
:-.% 0560 4 
2 0561 4 LKP_PTR = .LKP_PTR + .SEG_SIZE C .I J 
i. t944 4 
5 > 05635 4 END 
= 3 0564 4 
com 0565 2 END; ! Prologue 2 processing 
, 3 0566 2 
ae 0567 2 
3 5 0568 2 
ae, 1 
; IN 
3; Re 
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CONVSF aay 


v04-00 


Bs. 
CONVSF STRC VAX=-11 CONVERT 18 -Sep-19 :5 AX-11 Bliss-32 V Te -742 Page 18 
v04 SPLIT_DATA 14 b=8ep-1 138 3: 72:09 CONV.SRCICO NVESYR -B32;1 ’ (6) 
0000V 8 O13 BSBW COMPARE _KEYS 3 
5E 3 C 11 ADDL2 #12, SP 3 
Oc AE 8 118 MOVL RO, DUP 3 
B 1 11F BLSS : 9337 
9 6208 9A 00121 MOVZBL (1)CR6], RO ; 0561 
2 C 125 L nd . ing *PTR : 
d9 3 4 Ff 128 17$: AOSLSS T6$ 3; 0557 
0c Ar DO 0012C 188: OVL Bue, Tho : 0567 
5E 10 CO 001 ADDL2 sP : 0569 
O1FC 8F BA 1 POPR FAER R3,R4,R5,R6,R7,RB> : 
05 00137 RSB 3 
; Routine Size: 312 bytes, Routine Base: _CONVSFAST_S + 00E1 


16 
CONVSFSTRC VAX=11 CONVERT 1$-Se 1984 23:52:10 AX-11 Bliss-32 V4.0-742 
v04-000 COMPARE _KEYS 12365-1986 13:74:01 CONV. SRCICONVFSTRC.B32;1 
0570 ZSBTTL ‘COMPARE KEYS’ 
71 ROUTINE COMPARE _REYS ( SIZE,NEW : REF BLOCK C ,BYTE J,0LD : REF BLOCK C,BYTE J ) 
ye = : CLSCOMPARE_KEYS = 


> 604 


' 
Functional Description: 


Wr Oo OOnNe 


Calling Sequence: 
COMPARE _KEYS 

Input Parameters: 
none 


Implicit Inputs: 
none 


MPwr— 


Output Parameters: 
non 


DPV PVP PVPV PVPS SUSVUSVSVSV SUSU SIVSVSVSUOSVOSIOS 
SSSSSLSS SSS so PSS Sessa 


NAVE WN SO COON UE AR" OOONAUE 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: Implicit Outputs: 
none 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
le 


oS 
oa 
© 
io 
WAN. AIERIPONOPOPIPONPINOPINONINNDD 2 St tt es 


oat Routine Value: 

602 1 = Key/segment is duplicate 
603 0 - Key/segment is not duplicate 
6 -1 = Key/segment is out of order 
605 99 

606 600 Routines Called: 

607 601 non 

608 060 

609 060 Side Effects: 

610 0604 none 

611 0605 

612 - 

613 0607 

614 0608 BEGIN 

615 0609 

616 0610 DEF INE_CTX; 

617 0611 DEF INE-KEY_DESC; 

618 O6i¢ 

619 +e BUILTIN 

620 614 CMPP; 

621 0615 

622 0616 LOCAL 

623 0617 DUP : SIGNED; 

624 0618 Sea , : 
625 0619 ! If this is the first record it can't be anything 
666 0620 : 

627 1 If .CTX C CTXSV_FST J 

628 6 ¢ THEN 

629 BEGIN 

630 624 

631 0625 CT™X C CTXSV_FST J) = _CLEAR; 

632 0626 


CONVSFSTRC 
v04-000 


633 


SESTLISLELE LES 


DAA & 
DONAULSWN —OOONOUNS wr 


ooo 
OnNOw 


VAX=11_ CONVERT 
COMPARE KEYS 


Oo 
oO 
~ 


DUP 
SET 


PAAAAAAAAAAAO 


Aan 
=OODNAOUE WN $9 OONOAOUS WN“ OCONAUS WN OOO 


ty SSS 
- 


SSSSSSSSSSSSSSSSSSSSESSRELLESRE. 
AOUMMNVIVIMUTIUIUIUN & & 


+4 
o 
ao 
PAPA AHA ES B&B BEB BF FANNIN ANNAN ANNAN AANA WWW 


RETURN 0 
END; 


16 
15-Sep-1984 23:52:10 Ax-11 8 
1an8ee- 1382 93545201 ; 


= ( CASE .KEY_DESC C KEYSB_DATATYPE J] FROM KEYSC_STRING TO KEYSC_MAX_DATA OF 


C KEYSC_STRING } 
{ KEYSC_SGNWORD J 


toe] 


KEYSC_UNSGNWORD J 


_ 


KEYSC_SGNLONG ] 


C KEYSC_UNSGNLONG J 


| oe ] 


KEYSC_PACKED ] 


_ 


KEYSC_SGNQUAD ] 


: CHSCOMPARE( .SIZE,.NEW,.SIZE,.OLD ); 
: IF .NEW C 0,WORD_S J EQL .OLD C 0,WORD_S J 
THEN 


oUoe IF .NEW C 0,WORD_S J] LSS .OLD C O0,WORD_S J 


: IF .NEW C O,LONG_U J EQLU .OLD C 0,LONG_U J 


THEN 
0 
ahd IF .NEW C 0,LONG_U J] LSSU .OLD C 0,LONG_U J 


ELSE. 
1: 


: BEGIN 


LOCAL NIBBLES; 

NIBBLES = ( .SIZE* 2) - 1; 
CMPP( NIBBLES,.NEW,NIBBLES,.OLD ) 
END; 


: Check the high longword first 


rome ip 


| 


CONVSFSTRC 
v04-000 


IAPOPUPINIPINININDINYNY 2 St 


PPP PPP PPR RAANANANRAANAND PP PPPS DP PP 
~N ARUN HOODS NONE UNO ODNAAP WSO 


&ruw 
—OO0@ 


1 

VAX=11 CONVERT 18. $1984 23:52:1 AX-11 Bliss-32 V4.0-742 
COMPARE _KEYS 127808= 1382 #3:32: 40 CONV. SRCICONVFSTRC.B32;1 

684 If .NEW C 4,LONG_S ] EQL .OLD C 4,LONG_S J 

? 5 THEN 

If the high long word is eq then check the lower 

6 5 if .NEW C O,LONG_U J] EQL .OLD C 0,LONG_U J 

$39 THEN 
$696 ELSE IF .NEW C 0,LONG_U J] LSS .OLD C 0,LONG_U J 

9 THEN 


NOUS WN —(O OONOU SW -O0On 


SN NSS NN 


WANA AI AIRS IMINININININIIU 2 SS SOOO 


SOOOCOSOSOOCOCOCOOSCOOCOOOOOOOOOOCOOoOOOoOoOO 


MEW OOO 


-1 
eLse 
ELSE IF .NEW C 4,LONG_S J LSS .OLD C 4,LONG_S J 
THEN 
ELSE 
1: 


C KEYSC_UNSGNQUAD J]: od — C 4,LONG_U ] EQLU .OLD C 4,LONG_U J 
la C 0,LONG_U J] EQLU .OLD C 0,LONG_U J 


it 34 IF .NEW C 0,LONG_U J LSSU .OLD C 0,LONG_U J 


ELSE. 
ELSE IF .NEW [ 4,LONGU J LSSU .OLD C 4,LONG_U J 


-1 
ELSE 
1 


TES ); 
} Fix the meaning of the flag 
if .DUP EQL 0 
THEN 


UP = 1 
ELS 
IF .DUP EQL 1 
THEN 
puP = 0; 


} Return the value 
RETURN .DUP 
END; 
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CONV. SRCICONVFSTRC.B32;1 
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BB 00000 COMPARE_ 
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CONVSF STRC VAX=11 CONVERT 1b-sep=1984 23:5 AX=11 Bliss-32 V4.0-742 p 3 
Rivets: COMPARE_KEYS yaaeh=]S8t F3iFZIb9 — FARNNT Bb leg nse VR e058 tse, age 9 
01 99 19$:  CMPL Pp, wi : 0727 
| $3 ge tm ges ‘eo 
| D4 CLAL : 0729 
50 : 0 QOOAG 208: ROVE OUP. RO : 07 
g D4 OOOA 21s: CLRL = RO 0735 
| OFC BF BA QOOA? 228: © POPR —#*HCRZ,R3,R4,R5,RO,R7> ; 
| 5 OO0AB RSB : 

; Routine Size: 172 bytes, Routine Base: _CONVSFAST_S + 0219 


— 
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j 1 | 
| CONVSF STRC VAX=11 CONVERT 1b-se -1984 23:52:10 AX-11 Bliss-32 V4.0-742 Page 24. 
Voc IN_ SEGMENT 12-80 8= 1382 $3332: CONV SRCTEONUFSYRE BSo—1 ’ Oy 
| 
ls 763 7 1 ZSBTTL. ‘IN_SEGMENT' 
3 746 7 1 ROUTINE IN SEGMENT : CLSIN_SEGMENT = 
3) «6745 7 3 1 !+¢ 
3; 674 7 1! 
is £6 740 1 ! Functional Description: 
13 748 741 1! 

3; «749 rs 1! Determines if the current position in the data record is in a key 

; 750 745 1! segment or not 
fh Ores 1 i Calling § | 
ls ! Calling Sequence: 

3 2g yg 1! . | 

3 Pee 747 «1! IN_SEGMENT () 

> rae 746 1! 

: Lae 749 1°! Input Parameters: 

3 Le} 0750 1! none 

; 758 3 a oy 

3s 3? 7 ¢ 1! Implicit Inputs: 

; 760 0753 1! 

; 761 0754 1! BYTE_OFS = R6 Offset into the data record 

; O7s> y ! NEXT_SEG = R7 Start of the next segment 

s re? 37 26 ! NEXT_LEN - R8-~ Length of next segment 

s 765 0758 1 ! Output Parameters: 

; 766 0759 1! n 

: 767 0760 1! 

: 768 0761 1 | Implicit Outputs: 

: 769 b76¢ 1! none 

: 770 0768 1 i | 

3; 771 0764 1 ! Routine Value: 

, Tr 0765 1! 

av 0766 1! 1 = Pointer is in a key segment 

: 776 0767 1! 0 - Pointer is NOT in a key segment 

3; 775 0768 1! 

3; 77 8769 1 ! Routines Called: 

. ae 0770 1! none 

3; «778 0771 1! 

3; 779 34h 4 1! Side Effects: 

; 780 0775 1! none 

3; 781 0774 1! 

3 44 0775 1 !-- 

; 3776 1 

: 784 077 BEGIN 

3; 785 ore 

3 e f44 4 DEF INE_KEY_DESC; | 

; 788 781 EXTERNAL REGISTER | 

3; 789 res BYTE_OFS = 6, ! Offset into the data record | 

; 790 78 NEXT_SEG = 7, ! Start of the next segment 

3 ad . : NEXT_LEN = 8; ! Length of next segment | 

; a A LOCAL SEGMENT : SIGNED; 

o i 

3; 795 7 NEXT_SEG = ,CONVSGW_OUT_REC_SIZ; 

: 2% 7 NEXT“LEN = 0; | 

; 98 Fo SEGMENT = .KEY_DESC C KEYSB_SEGMENTS } - 1 

e 7 =. ai e a ; | 

: 799 792 

} 


a - - —_ 


| 
| 1 i 
i¢ FSTRC VAX=-11 CONVERT bese -1984 :52: AX-11 Bliss-32 V4.0-742 Page 5) 
Rett IN_ SEGMENT 12788-1382 93:72:10 CONV. SRCICONVFSTRC.832;1 ° oy 
'; 800 793 ' Check all of the segments 
P01 794 i ° | 
; 808 795 WHILE .SEGMENT GEQ 0 | 
; 80 738 dO 
4 Hi a BEGIN 
§ 4] 98 : See if we are past a segment if so see if we are in it else | 
3 44 Hd 1 check the next segment 
; 809 4 IF .BYTE_OFS GEQ .KEY_DESC C ( 28 + ( .SEGMENT*2 )),WORD_U J 
; 810 080 THEN 
3 at} Bee 4 BEGIN 
3 \¢ 05 4 
; Biz 4 2 See if we are in the segment. If so return with the pointers | 
; 815 0808 5 IF .BYTE_OFS LSS ( .KEY_DESC C_( 44 + .SEGMENT ),BYTE_U J) + 
; B16 0809 5 .KEY_DESC C ( 28 + ( .SEGMENT#®2 )J,WORD_U J ) 
s 6 0810 4 
; 818 0811 5 BEGIN 
; 819 Baig 5 NEXT_SEG = .KEY_DESC f ( 28 + ( ,SEGMENT*2 )),WORD_U J; 
: 820 0813 5 NEXTTLEN = -KEYTDESC C ( 44 + .SEGMENT ),BYTE.U J; | 
3; 821 0814 2 RETURN 1 
; He 0815 END 
; § oei¢ 4 END 
; 824 081 ELSE 
; 825 pais 
3 $58 + $4 If this segment is closer than the Last one then change pointers 
: 828 0821 IF _.NEXT_SEG GTR .KEY_DESC C ( 28 + ( .SEGMENT*2 )),WORD_U J | 
; 829 08 ¢ THEN 
; 8 08 4 EGI 
: 831 0824 4 NEXT_SEG = .KEY_DESC f ( 28 + ( .SEGMENT*2 )),WORD_U J; 
3 oe6 0825 4 NEXT_LEN = .KEY_DESC ( 44 + .SEGMENT ),BYTE_U J 
; 85 0826 ND; 
3 «834 + t34 
; 835 0828 
; 836 144 ' Check the next segment 
: 837 0830 ! 
; 838 0831 SEGMENT = .SEGMENT - 1 
; 839 08 ¢ END; 
3; 840 08 | 
; ae 4 : RETURN 0 
; Beg 3h 1 END; 
| 
52 DD 00000 IN_SEGMENT: 
PUSHL R : TR | 
57 00006 gf 32 00 $ CVTWL CONVSGW_OUT_REC_SIZ, NEXT_SEG : 0788 | 
8 D4 cLAL N L ; 0789 | 
50 12 A MOVZBL 18(KEY DESC), SEGMENT ; add 
AE ‘os 
51 1C AB4 C 11 MOVZWL 28(KEY_DESC)CSEGMENT], R1 3 0863 
| | 
| 


-—— 
| 
| 


—_—_—_——_——_- SF 


<! 

SF STRC VAX=11 CONVERT 15-Se 4 23:5 AX-11 Bliss-32 V4.0-742 
| ee IN. SEGMENT a-88b=138s $3:72:09 Hen shedEbnar strc asec 
| 

51 56 D1 0001 CMPL YTE_OFS, R1 
7a 99 00019 iss oS 
| i 2c A04B a, WOVZBL 44 (SEGMENT) CKEY_ DESCJ, R2 
| 36 b} CMPL ie OFS, R2 
57 5} 06 ° 8 MOVL EG 
| 28 2¢ AOKB 9A MOVZBL ts {SEGhERT) KEY_DESC], NEXT_LEN 
| 1011 09 BRB 
51 57 D1 00035 2s CMPL §_- NEXT_SEG, R1 
57 BF 08 003A ROVE, ORY. N 
58 2C A04B 9A 000 5} MOVZBL 44( (SHGMERT) EKEY. DESC], NEXT_LEN 
£9 11 0004 BRB 1$ 
0 D4 90044 3$: CLRL =. RO 
04 BA 0046 4$: POPR  #*M<R2> 
05 0004 RSB 
; Routine Size: 73 bytes, Routine Base: _CONVS$FAST_S + 02C5 
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H 1 | 
CONVSF STRC VAX=11 CONVERT 15-Sep-1984 :52:10 AX-11 Bliss-32 V4.0-742 Pa 7 
v04- COMPRESS_KEY 12-80} 84 $5:32: 18 CONV. SRCICONVF STRC.B32;1 i 3 
| 
3 et? 7 1 2SBTTL ‘COMPRESS KEY’ 
: 5t$ 8 : GLOBAL ROUTINE CONVSSCOMPRESS_KEY : CLSJSB_REG_9 NOVALUE = 
: B48 40 13 
; 849 41 1 ! Functional Description: 
3 o2) ORe7 : Does primary data level key compression for prologue 3 files 
: 638 0849 ; Calling Sequence: 
; ts Ose? ; CONVSSCOMPRESS_KEY() 
: 3 tka 1 ' Input Parameters: 
: 835 Opey yi ens 
: 860 0838 1 i Implicit Inputs: 
; 861 th : : none 
: Bes obec 1/ Output Parameters: 
: Bes ae ee: 
: 866 0898 1! Implicit Outputs: 
: Bes $860 1 | sete 
: 869 0861 1 ! Routine Value: 
$b ab ee 
: o76 Bees 1! Side Effects: 
s 67 865 1! none 
3 gfe 9266 1! 
; 75 0867 1 !-- 
; 876 0868 1 
i Bhp oe 
> 879 OB 71 DEF INE_CTX; 
; 880 4 DEF INE_KEY_DESC; 
: He oBy2 LOCAL 
; B85 0875 KEY : REF VECTOR C ,BYTE J, 
; pa76 LENGTH, 
3; 885 087 COUNT 
: B86 0878 RECORD_CTRL : REF BLOCK C BYTE ); 
: ass 0 9 1 The key is in different place depending on ref 
: 890 8 é IF .KEY_DESC C KEYSB_KEYREF ] EQL 0 
g 91 THEN 
i 898 KEY = .CTX C CTXSL_RCP ) + 13 
: +) 5 ELSE 
: ~ KEY = .CTX C CTXSL_RCP ) + 4; | 
; % ' Start with the full Length of the key 
e . | 
5 98 LENGTH = .KEY_DESC C KEYSB_KEYS2 J; 
: 99 Hg COUNT = 0; 
: 901 38 ! If this is not the first record in the bucket then compress off the front 
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VAX=11 CONVERT thesbo-1984 23:52:1 AX-11 Bliss-32 V4.0-74 ° 8 
COMPRESS_ KEY seme eafSRs F3iFZIb) | HaRNN Obes ae vee 95 eS? ase 85 


1 
if .CTX C CTX$W_USE J] NEQU 0 
THEN 

BEGIN 


BIND 

LASTKEY = .CTX C CTX$L_LKP J : VECTOR C BYTE J; 
Compaire with the last key 
Incr I FROM 0 TO ( .LENGTH = 1) BY 1 


If this character is the same as the character in the last key 
then it can be compressed off. 


' 
i 
i] 
of aaa Lot 2 OMS RT EG 5 2 
COUNT = .COUNT + 1 
ELSE 
EXITLOOP; 
The key could be a Little bit shoter 
LENGTH = .LENGTH = .COUNT; 
If we truncated off bytes we must move what is left of the key in a Little 
CHSMOVE ( .LENGTH.KEY C .COUNT J,KEY C0) ) 
END; 
If there are some characters left do rear end truncation 
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DEW OOODNAUNE WIN 9 ODNAUES WN OOONOUS WO 
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CSoooooooo Soooooooo 


9 IF .LENGTH GTR 1 
, THEN 
i : Start looking from the back to compress off trailing dups 
09 DECR I FROM ( .LENGTH - 1) TO 1 BY 1 
+4 dO 
$9 : If this character is a dup cut it off by shorting the length 
if .KeEY C.J = 1) EQLU .KEYC .I J 
THEN 
4 LENGTH = .LENGTH = 1 
94 ELSE 
EXITLOOP; 


: Point to the control fields in front of the key 
RECORD_CTRL = .KEY = 4; 

: Set the length field in the record 

RECORD_CTRL C 2,BYTE_U J] = .LENGTH; 
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Set the new size of the control part of the record if needed 


CTX C CTX$W_RCS J = .CTX C CTX$W_RCS ) - 
( .KEY_DESC C KEYSB_KEYSZ J = .LENGTH ); 


1 
VAX=11 CONVERT bse -1984 23:52: AX-11 Bliss-32 v4.0 
COMPRESS_KEY 12-80 8=}88e 93:32:49 CONV SREIEONUES TRE” 
0951 
2 § } Set the count field in the record 
3 4 RECORD_CTRL C 3,8YTE_U J = .COUNT; 
328 1 Set the record size field in the record 
938 RECORD_CTRL C 0,WORD_U ] = .RECORD_CTRL C 0,WORD.U ] - 
999 (KEY DESC C KEYSB_REYSZ J = .LENGTH ); 
4 
5 


pPTSITE: 


RETURN 
0968 1 END; 
O1FC 8F BB 00000 CONVSSCOMPRESS_KEY:: 
PUSHR ~ #*M<R2,R3,R4,R5,R6,R7,RB> 
15 AB 95 00004 TST 21(KEY_DESC) 
07 12 00007 BNEQ 
S& 30 AA 0D C1 00009 ADDL3 #13, 48(CTX), KEY 
05 11 90006 BRB $ 
56 30 AA 04 C1 00010 1$ ADDL3 #4, 48(CTX), KEY 
57 146 AB 9A 00015 2$ MOVZBL 20(KEY_DESCS, LENGTH 
58 04 00019 CLRL COUNT 
2c AA 8 00018 TSTW 30s 44 (CTX) 
18 13 0001 BEQL 6$ 
50 01 CE 999 MNEGL #1, I 
0A 11 000 BRB 
6046 3C BAGO 91 00025 3$ CMPB 0s HOCCTX)CID, (1) CKEY) 
96 12 00028 BNEQ 5$ 
D6 0002D INCL UNT 
F2 50 57 F 90 F 4$ AOBLSS LENGTH, I, 3 
57 38 g 3 5$: SUBL2 COUNT, LENGTH 
66 6846 5 00 MOVCS LENGTH, (COUNT)CKEY], (KEY) 
01 57 01 6$: CMPL LENGTH, #i 
: 13 BLEG 
50 D 4 MOVL LENGTH, | 
A 11 0004 BRB $ 
6046 FF A046 91 00045 7S: CMPB Os = 1 C1) CKEYJ, (1) CKEY) 
if 48 BNEQ 9S 
D 4 DECL LENGTH 
F 0 F5 gs SOBGTR | 
5 FC Ag 2 $ MOVAB -4(R6), RECORD CTRL 
02 A 3 MOVB LENGTH, 2(RECORD_CTRL) 
A 8 A MOVB UNT, 3(RECORD CTRL) 
31 14 AB A MOVZBL 20(KEY_DESC), RT 
7 C 6 SUBL2. R1, R7 
60 7 A 6 ADDWe 7, (RECORD_CTRL) 
38 AA 7 Ad 000 ADDW2 R7, S6(CTX) 


(oe > 8, Seabee | 8 Winans.) 2 Stee § OB a By 


— 
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Voesb08""* Uhre SREY tf: SBx18BS F3:92:09 eBay REN s YRC esoe1 Page 3S 
O1FC BF BA 9006¢ POPR #°M<R2,R3,R4,R5,R6,R7,RB> ; 0968 
a Routine Size: 113 bytes, Routine Base: _CONVSFAST_S + O030E 


| 1 
iC FSTRC VAX=11 CONVERT 1b-se -1984 23:52:10 AX-11 Bliss-32 V4.0-742 
a COMPRESS_ INDEX 1228 08=138e $5:32:}0 CONV.SRCICONVFSTRC.832;1 
; 97 1 SSBTTL ‘COMPRESS INDEX’ 
; 14 af \ GLOBAL ROUTINE CONVS COMPRESS_INDEX : CLSJSB_REG_9 NOVALUE = 
> 981 972 1: 
3 $8 318 ! Functional Description: 
; One 148 : ; Does prologue 3 index compression on the index level record 
; 98 377 Calling Sequence: 
; 988 39 CONVSSCOMPRESS_INDEX() 
: 981 1! Input Parameters: 
3 a4 : ¢ : : none 
: gS 984 1 | Implicit Inputs: 
:; 9946 94 #4 1! none 
; 995 7 
: 996 0987 1 ! Output Parameters: 
ee Oe fp 
: 999 0990 1! Implicit Outputs: 
3 10 0991 : none 
; 1008 $398 1 ! Routine Value: 
fe eer oa Spe 
> 1005 099% 1 ! Side Effects: 
: 1o58 0997 1! none 
3; 100 0998 1! 
3: 1008 0999 1 !<- 
3; 1009 1000 1 
tt ae tt Fo ome 
; 101 1008 DEF INE_CTX; 
; 101 1004 DEF INE_BUCKET; 
> 1014 1005 DEF INE~KEY_DESC; 
: 1015 1208 
1019 1908 CA ENGTH 
: 1018 1009 oF 
3; 1019 1010 RECORD_CTRL : REF BLOCK C ,BYTE J; 
: 1939 1912 BIND 
: 19 § 1018 KEY = .CTX C CTXSL_ROP J + 2: VECTOR C ,BYTE J; 
; i : 1919 Init. counts 
: 1 $ 1 3 LENGTH = -KEY_DESC C KEYSB_KEYSZ J; 
3 3 i : 8 COUNT = 0; 
: } : If this is not the first record in the bucket then do front compression 
: 1031 1 g if .CTX C CTX$W_USE ) NEQU 0 
3 1 4 1 THEN 
2 1 1024 BEGIN 
; 10 1025 
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1 
at 18-5 5 AX-11 BLi 4 
EX eke hs rie eT ae | Ma Mt Se 
IND 
LASTKEY = _.CTX C CTXSL_LKP J : VECTOR C .BYTE 2; 


Compare this key with the last one 
incr 1 FROM 0 TO ( .LENGTH = 1) BY 1 


Count the characters that are the same 
if .LASTKEY C .1 J) EQLU .KEY C .1 J 
COUNT = .COUNT + 1 
ELSE 
EXITLOOP; 
The Length of the key is a bit shorter now 
LENGTH = .LENGTH = .COUNT 
END; 
: Copy this key so that we have a last key to look at 
CHSMOVE ( .KEY_DESC c. eevee KEYSZ J 
x f CTXSL_RDP ; + 2 
Eth CTXSL-LKP 
: If we shortened the key from the front move it 
CHSMOVE ( .LENGTH,KEY C .COUNT J,KEY C0] ); 
: If there are some characters left do rear end truncation 


if .LENGTH GTR 1 
THEN 


Start looking from the back to compress off trailing dups 
DECR 1 FROM ( .LENGTH = 1) T0 1 BY 1 


: If this character is a dup cut it off by shorting the length 
4 wd C .J = 1) EQLU .KEYC .1 J 
LENGTH = .LENGTH = 1 
EXITLOOP; 
: Set up the fields in the record 
RECORD_CTRL = .CTX C CTXSL_RDP J; 
: Set the record size field in the record 
RECORD_CTRL C 0,BYTE_U J] = .LENGTH; 


NN Oe 


[ ' 
| CONVSF STR VAX=-11 CONVERT hese =1984 23:52:1 AX-11 Bliss-32 V4. 
yO4-008 COMPRESS_ INDEX 12-8 08=188C 73 ¢ 9 YCONV. SREJEONVESTRE 
3 1 ¢ 1083 
3 ; \ : } Set the compression count 
: i 5 RECORD_CTRL C 1,8YTE_U J = .COUNT; 
; , 5 ; 3 } Set the new size of the data part of the record 
: 1099 1 CTX C CTX$SW_RDS J) = .LENGTH + 2; 
: 1100 1091 
: 1101 1 % RETURN 
: 110¢ 109 
: 11 1094 END: 
O1FC  8F BB 00000 CONVSSCOMPRESS_INDEX:: 
PUSHR ~ #*M<R2,R3,R4,R5,R6,R7,RB> 
58 34 AA 00 00004 OVL ceTK) RB 
57 02 A& 9E 00008 MOVAB gir ), R7 
56 14 AB 9A 990¢ MOVZBL 20(KEY_DESC), LENGTH 
7E D4 0001 CLRL COUNT 
2c sOAA 8 O01¢ TSTW «—s- 44 (CTX) 
16 1 9901 BEQL 4$ 
50 01 cf 0017 MNEGL #1, I 
OA 11 OOO1A BRB 2$ 
6047 3C BAGO 91 O01¢ 1$ CMPB =-« ABOCCTXICII, (1)CR7] 
06 12 000 BNEQ 3$ 
gf D6 00024 INCL COUNT 
F2 50 6 F2 00026 3s AOBL $s LENGTH, I, 1$ 
56 6E C 99 A 3$ SUBL s UNT, LENGTH 
50 14 AB 9A dD 4$ MOVZBL (KEY_DESC), RO 
3¢ SoA 67 5 38 0031 MOVC3 RO, (R7) 866 «cTx) 
67 00 BE47 56 28 000 MOVC3 LENGTH, @COUNTLR7J, (R7) 
01 56 D1 0003C CMPL LENGTH, #i 
12 iF 99 F BLEQ 
50 36 bg 041 MOVE LENGTH, I 
6047 FF AQG7 91 ogee 5$: CMPB ss = 11) CR7], (1) CR7I 
5 12 004C BNEQ 
D 4 DECL LENGTH 
3 F5 0005 $$ SOBGTR I 
50 0 $ MOVL R68, RECORD CTRL 
69 MOVE LENGTH, (RECORD_CTRL) 
01 =A MOVB. COUNT 1(RECORD CTRL) 
3A OA 26 Al ADDW3 #2, LENGTH, 58(CTX) 
E CO 0006 ADDL : 
O1FC BF BA 6 PoP #*M<R2,R3,R4,R5,R6,R7,RB> 
5 00069 RSB 


3 Routine Size: 106 bytes. Routine Base: _CONVSFAST_S + 037F 
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: Copy the key from the index record into last key buffer 
CHSMOVE( -KEY_DES By KEYS2 oe 

CTX xpi et a ] + LOFFSET, 

oCTX7C CTXSL *TKP 
: Set the index record size 
CTX_P1 C CTX$W_RDS ) = .KEY_DESC C KEYSB_KEYSZ ] + .OFFSET; 
Set the index control size 


if «,CONVSGB_PROL_V3 
THEN 


BVI OSONS 


mrvnn— 


! The record control size is simply the size of the 
VEN pointer to the bucket 


CTx_P1 C CTXSW_RCS J = .CTX C CTXSV_VBN ) + 2 


H 116 1 § IDX_PTR = .CTX_P1 C CTXSL_RDOP J + .OFFSET; 

3 118¢ 1 ¢ } Copy the current key into the index buffer. 

; 1108 11 § IF .KEY_DESC C KEYSB_KEYREF J EQLU 0 

: 116 11 THEN 

3; 1168 11 8 BEGIN 
; 1192 11 
: 1170 11 BIND 
3 1171 11 SEG_SIZE = .KEY_DESC + 44 : VECTOR f BYTE 
3 1178 i SEG_POSI = .KEY_DESC + 28 : VECTOR »WORD | 
4 | 
3 1174 11 LOCAL REC_PTR; 
3 1175 11 
; 1176 1) : Copy the key into the index key buffer 
3; 1178 11 INCR I FROM 0 TO ( .KEY_DESC C KEYSB_SEGMENTS ] - 1 ) BY 1 | 
3 1179 11 DO 
3; 1180 11 4 BEGIN | 
3: 1181 11 4 
: 1182 u ‘ Point to the correct spot in the source string 
3 : 
8 i i : REC_PTR = .CONVSGL_RECORD_PTR + .SEG_POSI C .1 J; | 
: 1138 i 2 CHSMOVE( .SEG_SIZE C .1 J,.REC_PTR,.IDX_PTR ); | 
3; 1188 11 4 ! Update the destination 
3 1189 11 4 ! 
3; 1190 11 4 IDX_PTR = .IDX_PTR + .SEG_SIZE C .1 J 
3; 1191 11 & 

: 1198 11 4 END 
3 119 11 3 END 

3 1194 11 2 ELSE 
: 1195 11 CHSMOVE( .KEY DESC C KEYSB_KEYSZ J, | 
211 11 .CONVSGL_DUP_BUF , 
711 11 -1DX_PTR™); | 
311 11 
3 1 11 | 
3 1 11 
3 1 11 
. 2 11 | 
s 1 11 
. 7 11 
3 1 11 

2 1 11 

3 1 11 

3 1 11 

s F 11 

»* 1 

2% 1 

: 1 1 

3 1 1 

3; 1 1 

31 1 

. | 1 

3 1 1 

. 2 1 
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2 
VAX=11 CONVERT 1.56 =1984 23:52:1 AX-11 Bliss-32 V4.0-742 
x 12-8081 he 93:32:49 CONV. SRCICONVFSTRC.B32; 1 
ELSE 
' The rogers control size is the size of the 
VBN pointer to the bucket plus one byte of control info 
CTX_P1 C CTXSW_RCS J = .CTX C CTX$V_VBN J) + 3; 
RETURN 
END; 
O3FC 8F BB 00000 CONVSSMAKE_INDEX:: 
PUSHR  #*M<R2,R3,R4,R5,R6,R7,RB,RI> 
SE OC C2 00004 SUBL2 #12, $ 
56 SC AA GE 00007 MOVAB 9¢(R10) CTX_P1 
10 AB 03 €1 0000 BBC #3, 16(KEY_DESC), 18 
59 02 DO 0001 MOVL #2, OFFSET” 
02 11 0001 BRB 2$ 
59 D4 901 1$: CLRL OFFSET 
04 AE 34 6649 9 17 2$: MOVAB a@52(CTX_P1)COFFSETI, 4(SP) 
5 04 AE 00 00010 MOVL 4(SP), IDX_PTR 
15 AB 95 00021 TSTB g1 (KEY _DESC) 
2D 12 00024 BNEQ & 
$f 12 AB 9A 00026 MOVZBL 18(KEY_DESC), (SP) 
5 01 fF 002A MNEGL #1, I 
Hf 11 0002p BRB 4$ 
50 1¢ AB4? 3C 0002F 38 MOVZWL 28(KEY_DESC)CIJ, RO 
08 AE OOQdGDF 49 9E 000 MOVAB  @CONVSGL RECORD _PTREROJ, REC_PTR 
50 2C AB47 9A 000 MOVZBL 44(KEY_DESC)LI 
08 Be 30 28 9040 v¢ 0, aREC PTR, (1DX PTR) 
5 2C AB47 9A 0004 MOVZBL 44(KEY_DESC){1), RO 
38 50 CO 0004A ADDL 0, IDR_PTR 
5 6E f 9040 48: AOBLSS (SP), 17 38 
50 14 AB 9A 0083 5$: MOVZBL (KEY_DESC), RO 
00006 OF 50 28 $8 MOVC RO, @CONVSGL_DUP_BUF, (IDX_PTR) 
50 14 AB A 00050 68: mOVZBL 20(KEY_DESC), RO 
04 ; 50 28 00061 MOVC RO a4TSP), &60(CTX) 
14 ag A 00067 MOVZBL 20(KEY_DESC), RO 
0 59 Al ADDW OFFSET RO Sacctx P1) 
C 00006 CF E9 BLBC CONVS$G6_PROL_V3, 7S 
: 3 EF 0007 EXTZv #5, #2, (CTX, RO 
Al 7A ADDWS #2, RO, S6(CTX_P1) 
A 11 7F BRB a 
3 3 EF 1 7$ XT2v #5, #2, (CTX), RO 
Al DDWS «#3. RO, S6(CTK_P1) 
E t ¢0 8$ ADDL2 #ie, sp 
O3FC BF BA POPR #°M<R2,R3,R4,R5,R6,R7,RB,RI> 


Routine Base: _CONVSFAST_S + 03E9 
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RECORD.CTRL : REF BLOCK C {BYTE ); 

CTX_P1 = .CTX + CTXSK_BLN; | 
RECORD_CTRL = .CTX_P1 C CTXSL_RCP J; | 
; Get the size in bits of the vbn 
VBN_SIZE = ( .CTX C CTX$V_VBN ] + 2) * 8; 

The control bytes are different for prologue 3 files 

If .CONVS$GB_PROL_V3 

PO eee hts C 0,0,.VBN_SIZE,0 ] = .CTX C CTX$L_CURRENT_VBN ) 


Sao ANS 


; 1230 1 33 1 ZSSBTTL  ‘WRITE_VBN’ 
; i ; \ o | GLOBAL ROUTINE” CONVSSWRITE_VBN : CL$JSB_REG_9 NOVALUE = 
:1 1 1 i | 
: : ¢ } § ! Functional Description: 

: 1 1025 1! Writes the vbn pointer into the index record, also sets the control 
: : i : § ! } bytes describing the vbn pointer size 
: 4 : 3 : Calling Sequence: | 
i } $3 \ | CONVSSWRITE_VBN | 
: 1 rk 1 ¢ 1 Input Parameters: 
oes ie aon 
° ; | 
3: 1246 1235 1 ! Implicit Inputs: 
1508 1589 | i — | 
: 1249 1 4 1 ' Output Parameters: 
: 1589 1500 1 i —_ | 
3 125 1241 1 ! Implicit Outputs: 

Hele aoe | 
: 1255 1344 1} Routine Value: | 
aie a 

> 1258 1247 1! Side Effects: 

: 1559 1948 11 none | 
3: 1260 1249 1! 
3: 1261 1250 1 !<- 
3 136¢ 1251 1 

See 1588 _— 

> 1265 1254 DEF INE_CTX; | 
; 1366 } 3? DEF INE_KEY_DESC; | 
> 1268 1 2§ LOCAL | 
3 1269 1258 VBN_SIZE, 
3 is 1259 TX P1 REF BLOCK -BYTE J, 
31 1260 | 
3; 1 1 
3 i 1 
3 7 1 

3; ¥ 1 

s 12 i 

3 7 1 

3 1 1 

; 7 1 

3 7 1 

2; 7 1 

s 3 1 

3 1 1 

3 1 1 

| 1 

; 3 1 
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ZSBTTL ‘COPY KEY’ 
GLOBAL ROUTINE CONVSSCOPY_KEY ( OFFSET ) : CLSCOPY_KEY NOVALUE = 


uw 


q 
Functional Description: 


RUL ODO NS 


Copies the data record for secondary index into the proper 
data record buffer and sets RCS 


Calling Sequence: 
CONVSSCOPY_KEY() 
Input Parameters: 
none 


Implicit .Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 

Routine Value: 


none 


Side Effects: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i] 
i 
i 
i 
i 
1 
i 
i 
i 
' 
: none 
leo 
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“KEY DESC; 
DEF INE~RECORD_CTRL; 


! If this is a prologue 3 file then the offset is either 2 or 4 
depending on compression 


if .CONVS$GB_PROL_V3 
THEN 
BEGIN 
IF .KEY_DESC C KEYSV_KEY_COMPR ] 


OFFSET = 4 
ELSE 


2 BOO OOOO DOD00O 
SSS SS ete PO DONO NP UII AODHo VAR GM oO Hee nme oe 


OFFSET = 2; | 


!' Set the size of the record here sice it is known, for prologue 1 
} it is set in load_secondary 


RECORD_CTRL C 0,WORD_U } = .KEY_DESC C KEYSB_KEYSZ ] + .OFFSET - 2 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
DEF INE_CTX; 
DEF INE _KEY 
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H sf 
ConvaraTac wae 17: gee: 1386 $3: $4: {9 AX-11 Ot lese a V4.0-742 


COPY, CONV. SRCICONVFSTRC.B32;1 
: 1353 1341 END; 
3: 1354 1 § 
; ’ 5 : $7 Move the key to the record control buffer 
: 1 1345 CHSMOVE( .KEY_DESC C KEY$B_KEYSZ J, 
: 1 1 46 ONVSGL_RFA_BU UPFER ¢ Ha | 
3 ' 4 CTX C CTXSL“RCP OFFSET ); 
$ } 1 : 43 Set the size 
; i : i CTX C CTXSW_RCS J = .KEY_DESC C KEYSB_KEYSZ ] + .OFFSET; 
3; 1365 1 36 RETURN 
3 1 1354 
: 1367 1355 END; 
3C BB 00000 CONVSSCOPY_KEY:: 
USHR #*M<R2,R3,R4,R5> 
18 00006 CF €9 0000 BLBC CONV$GB_PROL’ V3 38. 
06 10 AB 6 £1 0000 BBC #6, 16(REY_DESCS, 
14 AE 4 00 90 MOVL » OF FSET" 
4 11 1 BRB re 
14 AE 02 DO 00012 1$ MOVL a2 FSET 
50 14 AB 9A 9016 2$ MOVZBL 2 {Key DESC), RO 
50 14 AE co OO1A ADDL ¢ OFFSET. RO 
68 50 02 A OO1g SUBW #2 RO, (RECORD CTRL) 
32 14 AB 9A 00022 3$ MOVZBL 20(KEY DESC), R2 
5 00006 CF 00 00026 MOVL  CONVSGC_RFA bur fer RO 
51 30 AA 14 AE 1 00028 ADDL3 OFFSET, 48(CTX), RI 
61 06 AO 52 28 00031 MOV 6(RO), (R1) 
20 16 AB 9A 000 MOVZBL 20(KEY_DESC), RO 
38 AA 0 14 AE Al OO03A ADDW3 OFFSETS RO, 56(CTX) 
3C BA 0 940 POPR MERE RE ORG RSS 
05 0004 RSB 


; Routine Size: 67 bytes, Routine Base: _CONVSFAST_S + O4AC 
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ONVERT 
IGH_KEY 
XSBITL _'CREATE_HIGH_K 


tbesto-t96e 25:52:10 yanctt 


= Ey’ 
GLOBAL ROUTINE “CONVSSCREATE_HIGH_KEY +: CL$JSB_REG_9 NOVALUE = 


1 
Functional Description: 


and data type 
Calling Sequence: 
CONVSSCREATE_HIGH_KEY() 
Input Parameters: 
none 


Implicit Inputs: 
none 

Output Parameters: 
none 

Implicit Outputs: 
none 


i 
i 
i 
i 
i 
i 
i 
' 
i 
' 
' 
i 
i 
' 
' 
' 
' 
i 
i 
i 
i 
: Routine Value: 
: none 

: Side Effects: 
none 

to 


BEGIN 


DEF INE_CTX; 
DEF INE-BUCKET; 
DEF INE-KEY_DESC; 


BUILTIN 
CVTLP; 
LOCAL 
: REF BLOCK 
RECORD_DATA : REF BLOCK 


Creates a high key vaule index for the current key of reference 


BYE 4; 


: Set up the control info for the index record 


CONVS$WRITE_VBN(); 


: The record we are making is actually for the level above 


CTX_P1 = .CTX + CTX$K_BLN; 


: Get the start where the key should go 


if .KEY_DESC C KEYSV_IDX_COMPR J 


2 
VERT 1B-Sep-1984 25:52:10 YARN Lins? v4. 0-742, page 42 


=—— 


paver grec yax 


=o 


THEN 
RECORD_DATA = 2 
RECORD_DATA = 0; 
} We know what the size of the finished record is now 
CTX_P1 C CTXSW_RDS J = .KEY_DESC C KEYSB_KEYSZ J] + .RECORD_DATA; 
Actually point to the record 
RECORD_DATA = .RECORD_DATA + .CTX_P1 C CTXSL_RDP J; 


VIEW —ODONO 
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3; 1 1 

3 1 1 

3} 1 

3 3 1 

3 1 1 

3 1 1 

3 1 1 

3 7 1 

3 7 1 

3 7 1 

3 1 1 

: } 

; ; ib : : Loop for all cf the segments 

; 144) INCR 1 FROM 0 TO ( .KEY_DESC C KEYSB_SEGMENTS ] - 1) BY 1 

; i 4s BEGIN 

: : rh : } Select the data type 

: i ‘7 CASE .KEY_DESC C KEYSB_DATATYPE } FROM KEYSC_STRING TO KEYSC_MAX_DATA OF 
; 1449 i 4 C KEYSC_STRING ] : BEGIN 

: 1451 1438 4 LOCAL HIGH_VALUE : BYTE; 

; 1488 1440 4 HIGH_VALUE = 2X'FF'; 

3 14546 1441 & CHSFILL ( .HIGH VALUE , 

> 1455 144@ 4 “KEY BESC C°( 44 + .1 ),BYTE_U J, 
> 1456 1443 4 ~RECORD_DATA ) 
etre ns 

; 1459 1446 C KEYSC_SGNWORD ] =: RECORD_DATA C 0,WORD_S ] = 2X'7FFF'; 

; 1461 1448 C KEYSC_UNSGNWORD ] : RECORD_DATA C O,WORD_U J = ZX'FFFF’; 

; 1468 1450 C KEYSC_SGNLONG ] =: RECORD_DATA C 0,LONG_S } = &X'7FFFFFFF’; 
1465 1458 {C KEYSC_UNSGNLONG }] : RECORD_DATA C 0,LONG_U J} = ZX'FFFFFFFF®; 
3 1467 1454 4 C KEYSC_PACKED ] : BEGIN 

; 1469 1456 4 LOCAL SIZE, 

; 1470 14 4 IGH/ VALUE : BYTE; 

; 1478 1235 4 SIZE = .KEY_DESC f ( 464 + .1 ),BYTE.U ] = 1; 
; Verz 1069 ? HIGH_VALUE = 2x'99'; 

: 1475 146¢ 4 CHSFILL ¢ HIGH VALUE. 

: 1477 1664 4 -RECORD_DATA ); 

; 1299 1466 4 RECORD_DATA C .SIZE,BYTE_U }) = %x°9C' 

3; 14 1467 4 

: 1481 1468 ; END; 

3: 1482 146 
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VAX=11 CONVERT 
CREATE_HIGH_KEY 
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C KEYSC_UNSGNQUAD J : 


{C KEYSC_SGNQUAD J 
pdate the pointer (add the segment Length) 


RECORD_DATA = .RECORD_DATA + .KEY_DESC C ( 44 + .1 ),BYTE_U J 


END; 
RETURN 
END; 
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GH_ VALUE 
KEV_DESC], RO 
HIGH VALUE, RO, (RECORD_DATA) 


ust 


7 
RR 
1 
& 
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- (SP), 
$3767, (RECORD_DATA) 
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; Routine Size: 


Name 
_CONVSFAST_S 


File 


-8255$DUA28: 
~$255$DUA28: 


Information: 
Warnings: 
Errors: 


yanate C 
CREATE _HIGH 


50 


91 


166 bytes, 


SYSLIBIL Bt 
CONV. SRC 
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ONVERT 
“KEY 


66 1 af 
..% 
66 7FFFFFFF F 0 
58 2C A7 M4 9A 
ey, 
50 99 F 0 
6E C 
6846 9C er 9 
4 
0 AG 7FFFFFFF Bf 00 
04 Ab 4 cE 
66 1 gf 
50 2C A74B OA 
56 50 ¢ 
57 6— F 
5E 04 C 
O1FC 8F BA 
05 
Routine Base: _CONVSFAST_S + 
ELUDOM 
PSECT SUMMARY 
Bytes 
1429 NOVEC,NOWRT, RD, 
Library Statistics 
ecre ee ae = Symbo ls 
Total Loaded 
18619 
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